﻿Public Class Inf_CausadecesosXanio
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        If Not Page.IsPostBack Then
            FG.culturaPaginas()






        End If



    End Sub
    Private Sub MuestraProvinciasCnDecesosxFallecimiento()
        Dim param(0) As ADODB.Parameter
        Dim rs As ADODB.Recordset

        'seteo el ccontrol 
        P_ImgDecesos.Visible = False


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        rs = Datos.TraerTodos("Informe_decesosXProvincia_X_anio", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        'pongo visivle el control
        P_ImgDecesos.Visible = True


        Img_decesosxPais.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(rs, TipoGraficoTortaGoogle.DosDimensiones, 600, 250, "Tasa de decesos registrados con cie-10", Drawing.Color.Blue)




    End Sub
    Private Sub MuestraDetalle_nivelPais()
        Dim param(0) As ADODB.Parameter
        Dim rs As ADODB.Recordset

        'seteo el ccontrol 
        Gv_datos.DataBind()



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        rs = Datos.TraerTodos("Informe_decesosXProvincia_X_Con_detalle_X_anio", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        If rs.RecordCount = 0 Then
            Exit Sub
        End If

        lbl_Registros.Visible = True
        LblTitulo.Visible = True

        'le pomgo la cant de regstros 
        lbl_Registros.Text = "Registros:" & rs.RecordCount.ToString



        Gv_datos.DataSource = FG.cargaUnDataTable(rs)
        Gv_datos.DataBind()







    End Sub

    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        FG.SacaCartelDeAViso(lblMsje)
        ''seteo el control 
        Gv_datos.DataBind()
        lbl_Registros.Visible = False
        LblTitulo.Visible =False 

        MuestraProvinciasCnDecesosxFallecimiento()

        ''si hay datos ,,entonces muestro el detalle 
        If P_ImgDecesos.Visible = True Then
            MuestraDetalle_nivelPais()
        End If

        If P_ImgDecesos.Visible = False Then
            FG.MuestraCartel("No hay datos para mostrar", lblMsje)
        End If

    End Sub
End Class